home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1990: Discy Business / Discy Business.2mg / DEV.CD / GUIDED.TOURS / IIC.PLUS.TOUR / INSIDE.STORY / INSIDE.PROBLEM (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1988-04-11  |  2.3 KB  |  65 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 4  ONERR  GOTO 10000
  2. 5  HCOLOR= 3:D$ =  CHR$(4):KS% =  -16384:KC% =  -16368:HPG% = 2000:MOVE = 4096:FT = 4113:F1 = 17:F2 = 20
  3. 6  PRINT  CHR$(12): HOME : TEXT : HOME 
  4. 7 L% = 0:W% = 40:T% = 0:B% = 22: GOSUB 150
  5. 10  GOSUB 155: PRINT D$"OPEN TEXT1": PRINT D$"READ TEXT1": PRINT D$: PRINT  CHR$(12): HOME : GOTO 1000
  6. 20  FOR Z = 0 TO 200
  7. 22  IF  PEEK(KS%) <128  THEN  NEXT Z
  8. 23  IF  PEEK(KS%) < >141  AND  PEEK(KS%) < >155  AND Z <201  THEN  POKE KC%,0: GOTO 22
  9. 24  RETURN 
  10. 30  FOR Z = 0 TO 70: NEXT Z: RETURN 
  11. 100  HTAB (W% - LEN(S$) +3)/2: PRINT S$;: RETURN 
  12. 110 TMP$ = S$: IF TC% <LM%  THEN  RETURN 
  13. 111  POKE KC%,0:CV% =  PEEK(37)
  14. 112  FOR CT = 0 TO 1000
  15. 113  IF  PEEK(KS%) <128  AND CT <1001  THEN  NEXT CT
  16. 114  IF  PEEK(KS%) = 141  THEN  POKE KC%,0: POKE 37,CV%:S$ = TMP$: RETURN 
  17. 115  IF  PEEK(KS%) = 155  THEN  POKE KC%,0: PRINT D$"CLOSE": GOTO 9990
  18. 116 CT = 1001
  19. 118  VTAB 24: HTAB 15: PRINT "Press RETURN";: GOSUB 20: HTAB 15: PRINT "            ";: GOSUB 20: VTAB 19: GOTO 114
  20. 120  POKE FT,F2: CALL MOVE: GOSUB 140: GOSUB 110: RETURN 
  21. 130  POKE FT,F1: CALL MOVE: GOSUB 140: GOSUB 110: RETURN 
  22. 140  GOSUB 155
  23. 141  PRINT D$"READ TEXT1"
  24. 142  INPUT "";TX$: IF  LEFT$(TX$,1) = "^"  THEN 148
  25. 144  IF  LEN(TX$) >39  THEN  PRINT  LEFT$(TX$,40);: GOTO 142
  26. 146  PRINT TX$: GOTO 142
  27. 148  PRINT D$:TC% = TC% +1: RETURN 
  28. 150  POKE 32,L%: POKE 33,W%: POKE 34,T%: POKE 35,B%: RETURN 
  29. 152 L% = 0:W% = 40:T% = 0:B% = 24: GOSUB 150: RETURN 
  30. 155 L% = 0:W% = 40:T% = 19:B% = 24: GOSUB 150: VTAB 19: PRINT  CHR$(12): HOME : RETURN 
  31. 990  HOME : POKE 33,33: END 
  32. 1000  HOME : TEXT : HOME : PRINT : FOR PD = 0 TO 3
  33. 1010  GOSUB 141: FOR ZZ = 0 TO 500: NEXT 
  34. 1020  PRINT : PRINT 
  35. 1030  NEXT : GOSUB 110
  36. 1040  VTAB 1: PRINT : PRINT D$"BLOAD P.SHERLOCK,A$"HPG%
  37. 1100  GOSUB 155: & : REM  ** Turn on Hires **
  38. 1110  GOSUB 130: GOSUB 120: GOSUB 130: GOSUB 120: GOSUB 130: GOSUB 140: GOSUB 110
  39. 1120  GOSUB 120: GOSUB 140: GOSUB 110: GOSUB 130
  40. 1130  GOSUB 120
  41. 9910  GOSUB 140: POKE 792,1: GOSUB 110
  42. 9980  GOSUB 152: HOME : PRINT  CHR$(4)"CLOSE": TEXT : VTAB 12:S$ = "Just a moment please...": GOSUB 100: PRINT : PRINT  CHR$(4)"-INSIDE.STORY.H": END 
  43. 9990  GOSUB 152: HOME : TEXT : VTAB 12:S$ = "Just a moment please....": GOSUB 100: PRINT : PRINT  CHR$(4)"-MENU"
  44. 10000 ERR% =  PEEK(222):LINE% =  PEEK(218) + PEEK(219) *256
  45. 10005  IF ERR% = 255  THEN  RESUME 
  46. 10010  GOSUB 152: HOME : PRINT CL$: TEXT : HOME : PRINT D$"CLOSE": VTAB 5: PRINT "An ERROR has occurred in this program.": PRINT 
  47. 10100  IF ERR% < >6  THEN 10200
  48. 10105  IF LINE% < >9980  THEN 10210
  49. 10110  PRINT "The next program to be executed was not": PRINT "found on the diskette in the drive.": GOTO 10220
  50. 10200  IF ERR% < >8  THEN 10900
  51. 10210  PRINT "There appears to be a problem with the": PRINT "diskette in the disk drive."
  52. 10220  PRINT : PRINT "Make sure you have the correct diskette": PRINT "(Your Tour of the Apple II) in the disk": PRINT "drive.": GOTO 11000
  53. 10900  PRINT "The error does not seem to be one that": PRINT "this program knows about.  Please note": PRINT "the error number and line number listed": PRINT "below and report it to your dealer."
  54. 10910  PRINT : PRINT "Error Number = "ERR%: PRINT "Line Number  = "LINE%
  55. 10920  PRINT : PRINT "Please put another program diskette in": PRINT "the disk drive.  When you have done": PRINT "this press RETURN to continue."
  56. 10930  GOSUB 110: PRINT : PRINT D$"PR#5"
  57. 11000  PRINT : PRINT "Press RETURN to continue."
  58. 11010  IF  PEEK(KS%) < >141  THEN 11010
  59. 11020  POKE (KC%),0:EC% = EC% +1: IF EC% >2  THEN 11900
  60. 11030  IF LINE% = 9990  THEN 9990
  61. 11040  IF LINE% = 9980  THEN 9980
  62. 11050  IF ERR% = 8  OR ERR% = 6  THEN  RUN 
  63. 11900  HOME : GOTO 10900
  64. 32998  REM <CTRL-0x0a><CTRL-0x0a>* BY: LANCE G. SALEME
  65. 32999  REM * COPYRIGHT 1984, 1986, 1988 APPLE COMPUTER, INC. *